home *** CD-ROM | disk | FTP | other *** search
/ MacHome 1999 February/March / MacHome CD (February and March 1999).iso / Edutainment / INFOHIGHWAYDEMOS / demo / MENU.DCR / scripts_7.ls < prev    next >
Encoding:
Text File  |  1999-09-16  |  995 b   |  35 lines
  1. on enterFrame
  2.   global experimenterMenu
  3.   set ActiveStartspr to 3
  4.   set diffuser to ActiveStartspr
  5.   set startBalls to 4
  6.   set seBrancherBall to startBalls
  7.   set diffuserBall to startBalls + 1
  8.   set correspondreBall to startBalls + 2
  9.   set echangerBall to startBalls + 3
  10.   set naviguerBall to startBalls + 4
  11.   set creerSiteWebBall to startBalls + 5
  12.   set startHighLightSpr to 10
  13.   set CreerUnSiteWeb to startHighLightSpr
  14.   set startHotSpot to 11
  15.   set creerUnSiteWebHS to startHotSpot
  16.   set ro to rollOver()
  17.   puppetizeExclude(0, ro - (startHotSpot - startHighLightSpr), CreerUnSiteWeb, CreerUnSiteWeb)
  18.   case ro of
  19.     diffuser, diffuserBall:
  20.       go(the frame)
  21.     creerUnSiteWebHS, creerSiteWebBall:
  22.       puppetSprite(CreerUnSiteWeb, 1)
  23.       set the member of sprite CreerUnSiteWeb to member "creerUnSiteWeb"
  24.       updateStage()
  25.     otherwise:
  26.       depuppetize(CreerUnSiteWeb, CreerUnSiteWeb)
  27.       updateStage()
  28.       go("diffuserClose")
  29.   end case
  30. end
  31.  
  32. on exitFrame
  33.   go(the frame)
  34. end
  35.